﻿Public Class Agenda
    Dim myCon As New Conexion
    Private Sub Agenda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboAsig.DisplayMember = "nombre"
        ComboAsig.ValueMember = "id"
        ComboAsig.DataSource = myCon.llenarComboAsig.Tables(0)
    End Sub

    Private Sub ComboAsig_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboAsig.SelectedIndexChanged
        'MsgBox(ComboAsig.SelectedValue)

        DataGridView1.DataSource = myCon.mostrarArchivosAgenda("SELECT Archivo.nombre, Archivo.fecha, Archivo.id FROM Archivo " & _
                                                               "INNER JOIN Asignatura ON Archivo.id_asignatura = Asignatura.id " & _
                                                               "WHERE Asignatura.id = " & CInt(ComboAsig.SelectedValue)).Tables(0)

        DataGridView1.Columns(0).HeaderText = "Unidades de la Materia"
        DataGridView1.Columns(1).HeaderText = "Fecha (DD/MM/AA)"
        'id archivo
        DataGridView1.Columns(2).Visible = False
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        Dim id_archivo As Integer = CInt(DataGridView1.CurrentRow.Cells(2).Value())
        MsgBox(id_archivo.ToString)
        txtTranscripcion.Text = myCon.abrirConRuta("SELECT url FROM Archivo WHERE Archivo.id = " & id_archivo)
        'MsgBox("txtApuntes")
        txtApuntes.Text = myCon.abrirConRuta("SELECT Apunte.url FROM Apunte WHERE Apunte.id_archivo = " & id_archivo)



    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Hide()
    End Sub
End Class